Each type of texture filtering has advantages and disadvantages. For instance, linear texture filtering can produce jagged edges or a chunky appearance in the final image. However, it is a computationally low-overhead method of texture filtering. Filtering with mipmaps usually produces the best results, especially when combined with anisotropic filtering. However, it requires the most memory of the techniques that Direct3D supports.

Microsoft® Visual Basic® applications should set the current texture filtering method by calling the Direct3DDevice8.SetTextureStageState method. Set the value of the first parameter to the integer index number (0-7) of the texture for which you are selecting a texture filtering method. Pass CONST_D3DTEXTUREMAGFILTER, CONST_D3DTEXTUREMINFILTER, or CONST_D3DTEXTUREMIPFILTER for the second parameter to set the magnification, minification, or mipmapping filter. Set the third parameter to the value from
CONST_D3DTEXTUREFILTERTYPE to set the magnification, minification, or mipmapping filter.

' Setup our texture. Using textures introduces the texture stage states,
    ' which govern how textures get blended together (in the case of multiple
    ' textures) and lighting information. In this case, we are modulating
    ' (blending) our texture with the diffuse color of the vertices.
    g_D3DDevice.SetTexture 0, g_Texture
    g_D3DDevice.SetTextureStageState 0, D3DTSS_COLOROP, D3DTOP_MODULATE
    g_D3DDevice.SetTextureStageState 0, D3DTSS_COLORARG1, D3DTA_TEXTURE
    g_D3DDevice.SetTextureStageState 0, D3DTSS_COLORARG2, D3DTA_DIFFUSE
    g_D3DDevice.SetTextureStageState 0, D3DTSS_ALPHAOP, D3DTOP_DISABLE

По-моему, это одно из самых слабых мест бейсика

Это VB6

и ничто не убедит перейти с него на .NET

А тебя кто то убеждал или уговаривал? Наслаждайся всемиуважаемым и горячолюбимым VB6!! В том числе и работой с курсорами.. ))

В общем, проблема решена, жаль что тут опять мне не помогли.

В общем, проблема решена, жаль что тут опять мне не помогли.

эээ, слушай, дай ссылку туда (на тему твою), если не сложно, или опиши вкратце - ты решил, а я нет!

но хотспот у него на 4 пикселя ниже

Нет ли у тебя примера кода

Private Sub DrawCursorState()
Dim Buf&1), Papi As POINTAPI, I&
If lebopt_MOUSEINTERPOLATION Then
  Buf(1) = Int(Sqr((PMP.X - MP.X) * (PMP.X - MP.X) + (PMP.Y - MP.Y) * (PMP.Y - MP.Y)))
Else
  Buf(1) = 0
End If
If lebCURSORMODE = 4 Then ' Cursor Wrapping
  GetCursorPos Papi
  If FULLSCREEN Then
    If MP.Y >= 599 Then
      SetCursorPos Papi.X, 598
      lebPPOINTERY = lebPPOINTERY - 598
      GetCursorPos MP
      MP.X = MP.X - LEBuildW.Left / Screen.TwipsPerPixelX
      MP.Y = 599 - (MP.Y - LEBuildW.Top / Screen.TwipsPerPixelY)
      PMP.Y = MP.Y
    End If
    If MP.Y <= 0 Then
      SetCursorPos Papi.X, 1
      lebPPOINTERY = lebPPOINTERY + 598
      GetCursorPos MP
      MP.X = MP.X - LEBuildW.Left / Screen.TwipsPerPixelX
      MP.Y = 599 - (MP.Y - LEBuildW.Top / Screen.TwipsPerPixelY)
      PMP.Y = MP.Y
    End If
  Else
    If Papi.Y <= 0 Then
      SetCursorPos Papi.X, Int(Screen.Height / Screen.TwipsPerPixelY) - 2
      lebPPOINTERY = lebPPOINTERY - Int(Screen.Height / Screen.TwipsPerPixelY) + 2
      GetCursorPos MP
      MP.X = MP.X - LEBuildW.Left / Screen.TwipsPerPixelX
      MP.Y = 599 - (MP.Y - LEBuildW.Top / Screen.TwipsPerPixelY)
      PMP.Y = MP.Y
    End If
    If Papi.Y >= Int(Screen.Height / Screen.TwipsPerPixelY) - 1 Then
      SetCursorPos Papi.X, 1
      lebPPOINTERY = lebPPOINTERY + Int(Screen.Height / Screen.TwipsPerPixelY) - 2
      GetCursorPos MP
      MP.X = MP.X - LEBuildW.Left / Screen.TwipsPerPixelX
      MP.Y = 599 - (MP.Y - LEBuildW.Top / Screen.TwipsPerPixelY)
      PMP.Y = MP.Y
    End If
  End If
End If
Select Case lebCURSORMODE
Case 0
  If lebopt_MOUSEPOINTERSHADOW Then DisplayShadow MP.X + 3, MP.Y - 26, 0, 488, 17, 24
  'Buf(1) = Int(Sqr((PMP.X - MP.X) * (PMP.X - MP.X) + (PMP.Y - MP.Y) * (PMP.Y - MP.Y)))
  If Buf(1) = 0 Then
    isplayPict MP.X, MP.Y - 23, 0, 488, 17, 24, lebCURSORCOL
  Else
    Select Case Buf(1)
    Case 1 To 4
      Buf(0) = 3
    Case 5 To 32
      Buf(0) = 2
    Case Else
      Buf(0) = 1
    End Select
    For I = 0 To Buf(1) Step 4
      isplayPictT Int(NumPerc(PMP.X, MP.X, I / Buf(1))), Int(NumPerc(PMP.Y, MP.Y, I / Buf(1))) - 23, 0, 488, 17, 24, lebCURSORCOL, Buf(0)
    Next I
  End If
Case 1
  Buf(0) = 0
  Select Case lebCurrentTool
  Case 17 To 19
    '
  Case Else
    If SpriteSel > -1 And lebSELECTIONMODE = 0 Then
      If lebSelectedSPRITES(SpriteSel) Then
        Select Case lebGENERICEDITMODE
        Case 1
          Buf(0) = 1
        Case 2
          Buf(0) = 2
        Case 3
          Buf(0) = 3
        End Select
      End If
    ElseIf VertexSel > -1 And lebSELECTIONMODE = 1 Then
      If lebSelectedVERTICES(VertexSel) Then
        Select Case lebGENERICEDITMODE
        Case 1
          Buf(0) = 1
        Case 2
          Buf(0) = 2
        Case 3
          Buf(0) = 3
        End Select
      End If
    ElseIf SectorSel > -1 And lebSELECTIONMODE = 3 Then
      If lebSelectedSECTORS(SectorSel) Then
        Select Case lebGENERICEDITMODE
        Case 1
          Buf(0) = 1
        Case 2
          Buf(0) = 2
        Case 3
          Buf(0) = 3
        End Select
      End If
    ElseIf WallSel > -1 And lebSELECTIONMODE = 4 Then
      If lebSelectedWALLS(WallSel) Then
        Select Case lebGENERICEDITMODE
        Case 1
          Buf(0) = 1
        Case 2
          Buf(0) = 2
        Case 3
          Buf(0) = 3
        End Select
      End If
    ElseIf lebSELECTIONMODE = 5 Then
      If VertexSel > -1 Then
        If lebSelectedVERTICES(VertexSel) Then
          Select Case lebGENERICEDITMODE
          Case 1
            Buf(0) = 1
          Case 2
            Buf(0) = 2
          Case 3
            Buf(0) = 3
          End Select
        End If
      ElseIf SpriteSel > -1 Then
        If lebSelectedSPRITES(SpriteSel) Then
          Select Case lebGENERICEDITMODE
          Case 1
            Buf(0) = 1
          Case 2
            Buf(0) = 2
          Case 3
            Buf(0) = 3
          End Select
        End If
      End If
    End If
    If lebkCTRL Then
      If lebSELECTIONMODE = 0 And lebSelectCntSPRITES <> 0 Then
        Select Case lebGENERICEDITMODE
        Case 1
          Buf(0) = 1
        Case 2
          Buf(0) = 2
        Case 3
          Buf(0) = 3
        End Select
      ElseIf lebSELECTIONMODE = 1 And lebSelectCntVERTICES <> 0 Then
        Select Case lebGENERICEDITMODE
        Case 1
          Buf(0) = 1
        Case 2
          Buf(0) = 2
        Case 3
          Buf(0) = 3
        End Select
      ElseIf lebSELECTIONMODE = 3 And lebSelectCntSECTORS <> 0 Then
        Select Case lebGENERICEDITMODE
        Case 1
          Buf(0) = 1
        Case 2
          Buf(0) = 2
        Case 3
          Buf(0) = 3
        End Select
      ElseIf lebSELECTIONMODE = 4 And lebSelectCntLOOPS <> 0 Then
        Select Case lebGENERICEDITMODE
        Case 1
          Buf(0) = 1
        Case 2
          Buf(0) = 2
        Case 3
          Buf(0) = 3
        End Select
      ElseIf lebSELECTIONMODE = 5 And (lebSelectCntVERTICES <> 0 Or lebSelectCntSPRITES <> 0) Then
        Select Case lebGENERICEDITMODE
        Case 1
          Buf(0) = 1
        Case 2
          Buf(0) = 2
        Case 3
          Buf(0) = 3
        End Select
      End If
    End If
  End Select
  Select Case Buf(0)
  Case 0
    If lebopt_MOUSEPOINTERSHADOW Then DisplayShadow MP.X - 9, MP.Y - 15, 18, 487, 25, 25
    If Buf(1) = 0 Then
      isplayPict MP.X - 12, MP.Y - 12, 18, 487, 25, 25, lebCURSORCOL
    Else
      Select Case Buf(1)
      Case 1 To 4
        Buf(0) = 3
      Case 5 To 32
        Buf(0) = 2
      Case Else
        Buf(0) = 1
      End Select
      For I = 0 To Buf(1) Step 4
        isplayPictT Int(NumPerc(PMP.X, MP.X, I / Buf(1))) - 12, Int(NumPerc(PMP.Y, MP.Y, I / Buf(1))) - 12, 18, 487, 25, 25, lebCURSORCOL, Buf(0)
      Next I
    End If
  Case 1
    If lebopt_MOUSEPOINTERSHADOW Then DisplayShadow MP.X - 9, MP.Y - 15, 18, 461, 25, 25
    'Buf(1) = Int(Sqr((PMP.X - MP.X) * (PMP.X - MP.X) + (PMP.Y - MP.Y) * (PMP.Y - MP.Y)))
    If Buf(1) = 0 Then
      isplayPict MP.X - 12, MP.Y - 12, 18, 461, 25, 25, lebCURSORCOL
    Else
      Select Case Buf(1)
      Case 1 To 4
        Buf(0) = 3
      Case 5 To 32
        Buf(0) = 2
      Case Else
        Buf(0) = 1
      End Select
      For I = 0 To Buf(1) Step 4
        isplayPictT Int(NumPerc(PMP.X, MP.X, I / Buf(1))) - 12, Int(NumPerc(PMP.Y, MP.Y, I / Buf(1))) - 12, 18, 461, 25, 25, lebCURSORCOL, Buf(0)
      Next I
    End If
  Case 2
    If lebopt_MOUSEPOINTERSHADOW Then DisplayShadow MP.X - 9, MP.Y - 12, 18, 441, 25, 19
    'Buf(1) = Int(Sqr((PMP.X - MP.X) * (PMP.X - MP.X) + (PMP.Y - MP.Y) * (PMP.Y - MP.Y)))
    If Buf(1) = 0 Then
      isplayPict MP.X - 12, MP.Y - 9, 18, 441, 25, 19, lebCURSORCOL
    Else
      Select Case Buf(1)
      Case 1 To 4
        Buf(0) = 3
      Case 5 To 32
        Buf(0) = 2
      Case Else
        Buf(0) = 1
      End Select
      For I = 0 To Buf(1) Step 4
        isplayPictT Int(NumPerc(PMP.X, MP.X, I / Buf(1))) - 12, Int(NumPerc(PMP.Y, MP.Y, I / Buf(1))) - 9, 18, 441, 25, 19, lebCURSORCOL, Buf(0)
      Next I
    End If
  Case 3
    If lebopt_MOUSEPOINTERSHADOW Then DisplayShadow MP.X - 9, MP.Y - 15, 18, 415, 25, 25
    'Buf(1) = Int(Sqr((PMP.X - MP.X) * (PMP.X - MP.X) + (PMP.Y - MP.Y) * (PMP.Y - MP.Y)))
    If Buf(1) = 0 Then
      isplayPict MP.X - 12, MP.Y - 12, 18, 415, 25, 25, lebCURSORCOL
    Else
      Select Case Buf(1)
      Case 1 To 4
        Buf(0) = 3
      Case 5 To 32
        Buf(0) = 2
      Case Else
        Buf(0) = 1
      End Select
      For I = 0 To Buf(1) Step 4
        isplayPictT Int(NumPerc(PMP.X, MP.X, I / Buf(1))) - 12, Int(NumPerc(PMP.Y, MP.Y, I / Buf(1))) - 12, 18, 415, 25, 25, lebCURSORCOL, Buf(0)
      Next I
    End If
  End Select
Case 2
  If lebopt_MOUSEPOINTERSHADOW Then DisplayShadow MP.X + 3, MP.Y - 26, 44, 488, 21, 24
  'Buf(1) = Int(Sqr((PMP.X - MP.X) * (PMP.X - MP.X) + (PMP.Y - MP.Y) * (PMP.Y - MP.Y)))
  If Buf(1) = 0 Then
    isplayPict MP.X, MP.Y - 23, 44, 488, 21, 24, lebCURSORCOL
  Else
    Select Case Buf(1)
    Case 1 To 4
      Buf(0) = 3
    Case 5 To 32
      Buf(0) = 2
    Case Else
      Buf(0) = 1
    End Select
    For I = 0 To Buf(1) Step 4
      isplayPictT Int(NumPerc(PMP.X, MP.X, I / Buf(1))), Int(NumPerc(PMP.Y, MP.Y, I / Buf(1))) - 23, 44, 488, 21, 24, lebCURSORCOL, Buf(0)
    Next I
  End If
Case 3
  If lebopt_MOUSEPOINTERSHADOW Then DisplayShadow MP.X, MP.Y - 11, 0, 470, 7, 17
  'Buf(1) = Int(Sqr((PMP.X - MP.X) * (PMP.X - MP.X) + (PMP.Y - MP.Y) * (PMP.Y - MP.Y)))
  If Buf(1) = 0 Then
    isplayPict MP.X - 3, MP.Y - 8, 0, 470, 7, 17, lebCURSORCOL
  Else
    Select Case Buf(1)
    Case 1 To 4
      Buf(0) = 3
    Case 5 To 32
      Buf(0) = 2
    Case Else
      Buf(0) = 1
    End Select
    For I = 0 To Buf(1) Step 4
      isplayPictT Int(NumPerc(PMP.X, MP.X, I / Buf(1))) - 3, Int(NumPerc(PMP.Y, MP.Y, I / Buf(1))) - 8, 0, 470, 7, 17, lebCURSORCOL, Buf(0)
    Next I
  End If
Case 4
  If lebopt_MOUSEPOINTERSHADOW Then DisplayShadow MP.X, MP.Y - 11, 0, 470, 7, 17
  'Buf(1) = Int(Sqr((PMP.X - MP.X) * (PMP.X - MP.X) + (PMP.Y - MP.Y) * (PMP.Y - MP.Y)))
  If Buf(1) = 0 Then
    isplayPict MP.X - 8, MP.Y - 8, 0, 452, 17, 17, lebCURSORCOL
  Else
    Select Case Buf(1)
    Case 1 To 4
      Buf(0) = 3
    Case 5 To 32
      Buf(0) = 2
    Case Else
      Buf(0) = 1
    End Select
    For I = 0 To Buf(1) Step 4
      isplayPictT Int(NumPerc(PMP.X, MP.X, I / Buf(1))) - 8, Int(NumPerc(PMP.Y, MP.Y, I / Buf(1))) - 8, 0, 452, 17, 17, lebCURSORCOL, Buf(0)
    Next I
  End If
End Select
End Sub

Private Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Long
Private Declare Function SetClassLong Lib "user32" Alias "SetClassLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const GCL_HCURSOR = (-12)
Option Explicit

Private Sub Command1_Click()
SetCursor "C:\WINDOWS\Cursors\3dgarro.cur"
End Sub

Private Sub SetCursor(ByRef FileName As String)
Dim hCursor As Long
hCursor = LoadCursorFromFile(FileName)
SetClassLong Me.hwnd, GCL_HCURSOR, hCursor
End Sub

Private Sub Command2_Click()
SetCursor "C:\WINDOWS\Cursors\wagtail.ani"
End Sub