VB Menggeser Gambar

Tampilan Gambar

Object | Property | Nilai |

Command 1 | caption | Move Down |

Command2 | caption |Move right |

Command3 | caption | Move Up |

Command4 | caption |Move left |

Image1 | Picture |(Your Picture) |

Masukkan kode berikut :

‘menggerakkan gambar ke bawah

Private Sub Command1_Click()

Image1.Top = Image1.Top + 100

End Sub

‘menggerakkan gambar ke kanan

Private Sub Command2_Click()

Image1.Left = Image1.Left + 100

End Sub

‘menggerakkan gambar ke Atas

Private Sub Command3_Click()

Image1.Top = Image1.Top - 100

End Sub

‘menggerakkan gambar ke kiri

Private Sub Command4_Click()

Image1.Left = Image1.Left - 100

End Sub

Semoga bermanfaat......