Maybe'den İşinize Yarayacak Ufak Kodlar :P ( V.b 6 )

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Integer, ByVal IParam As Long) As Long

Private Declare Sub ReleaseCapture Lib "user32" ()

Private Const WM_NCLBUTT>Private Const HTCAPTION = 2


Private Sub Formu_Taşı(sForm As Form)

ReleaseCapture
Call SendMessage(sForm.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0)

End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

'Sol Fare tuşuna tıklayarak formu taşıyabilirsiniz.
If Button = 1 Then Formu_Taşı Me

End Sub

move(screen.width-width)/2, (screen.height-height)/2

Set Reg = CreateObject("Wscript.Shell")

MsgBox "CPU " & Reg.RegRead("HKEY_LOCAL_MACHINE\Hardware\Description\System\CentralProcessor\0\ProcessorNameString")

Form_Load Kısmına

If App.PrevInstance Then
MsgBox "Program zaten aktif", vbInformation
End
end if

Private Sub Form_Load()
Timer1.Interval = 100

End Sub

Private Sub Timer1_Timer()
Label1 = Date
Label2 = Time
End Sub

Shell "explorer.exe http://www.extraloob.com"