Formun başındaki yazıyı hareket ettirme

[zeugma35]

arkadaşlar formun caption kısmına yazdığım başlığı nasıl hareket ettirebilirim

 

[fireman64]

Dosyanız ektedir.
İndir

 

[zeugma35]

yanıtınız için teşekkür ederim yalnız taktilo gibi olmasını istiyorum ekteki dosyayı buldum ama ilgili kodları bulamadım

http://www.dosya.tc/server7/fmtdpx/CALISMA.xls.html

 

[fireman64]

Private Declare Function FindWindowA Lib "User32" _
   (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function EnableWindow Lib "User32" _
   (ByVal hWnd As Long, ByVal bEnable As Long) As Long
Private Declare Function GetWindowLongA Lib "User32" _
   (ByVal hWnd As Long, ByVal nIndex As Long) As Long
   Private Declare Function SetWindowLongA Lib "User32" _
   (ByVal hWnd As Long, ByVal nIndex As Long, _
   ByVal dwNewLong As Long) As Long



Private Sub UserForm_Activate()
Dim x As Integer
Dim current As Variant
Dim y As String
y = UserForm2.Caption
UserForm2.Caption = ""
For x = 0 To Len(y)
    If x = 0 Then
    UserForm2.Caption = ""
    current = Timer
        Do While Timer - current < 0.1
           DoEvents
        Loop
   GoTo bitti
Else: End If
UserForm2.Caption = Left(y, x)
current = Timer
Do While Timer - current < 0.1
DoEvents
Loop
bitti:
Next x

EnableWindow FindWindowA("XLMAIN", Application.Caption), 1
   Do
    
DoEvents
Loop
End Sub