Há uma forma simples de se obter a resolução de um monitor de vídeo usando uma API.

Declare Function GetSystemMetrics Lib "User" (ByVal nIndex As Integer) as Integer

'...

Sub Form_Resize( )
dim xRes As Integer
dim yRes As Integer
xRes = GetSystemMetrics(0)
yRes = GetSystemMetrics(1)

If xRes < 1024 and yRes < 768 Then
'adicione seu código de controle de dimensões
End If
End Sub