Startup Form Berada di Kanan Bawah Screen Saat dengan Visual Basic 6.0

Pada tutorial kali ini admin akan share sourcode kecil tentang bagaimana cara membuat penempatan form saat run tepat dikanan pojok bawah screen pada layar komputer anda dengan menyesuaikan setingan resolusi screen.

Buka Microsoft Visual Basic 6.0 - StandartEXE - Form kemudian tambahkan module sebagai tempat untuk mempublikasikan atau declarasikan variabel-variabel atau function-function pendukung pada sourcode ini. Copykan coding variabel dan function dibawah ini kedalam module yang baru kita buat. 

Public Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type

Public Declare Function SystemParametersInfo _
Lib "user32" Alias "SystemParametersInfoA" ( _
ByVal uAction As Long, ByVal uParam As Long, _
lpvParam As Any, ByVal fuWinIni As Long) As Long
Public Const SPI_GETWORKAREA As Long = 48

Setelah selesai dilanjutkan dengan double klik pada form pilih prosedur Form_Load dan copykan coding ini pada prosedur Form_Load diatas

Dim R As RECT
Call SystemParametersInfo(SPI_GETWORKAREA, 0, R, 0)
Me.Top = (R.bottom * Screen.TwipsPerPixelX) - Me.Height
Me.Left = (R.Right * Screen.TwipsPerPixelY) - Me.Width

Simpan dan RUN/F5 dan lihat hasilnya, Form akan muncul tepat berada disudut kanan bawah pada screen anda dengan menyesuaikan resolusi pada layar pc