У формы есть метод Line. Этот метод идет еще от BASIC для DOS и работает по тем же правилам. Сначала нам нужно установить режим отображения формы. Потом воспользоваться методом Line для рисования линии.
Private Sub Command1_Click() Form1.ForeColor = &HFF& Form1.Line (0, 0)-(100, 100) End Sub Private Sub Form_Load() Form1.ScaleMode = 3 End Sub
Запускаем, смотрим: